COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(*$R60 allocate more core for heap *)
C00003 ENDMK
C⊗;
(*$R60 allocate more core for heap *)

program al;

procedure initAlloc; extern;				(* from ALLOC.PAS *)
procedure initEditor; extern;				(* from EDIT.PAS *)
procedure edit; extern;
procedure initWorld; extern;				(* from INTERP.PAS *)
procedure exitWorld; extern;
procedure consDef; extern;

begin
initAlloc;		(* initialize dynamic storage allocator *)
consDef;		(* define constants - needed by parser *)
initEditor;		(* get the Editor ready *)
initWorld;		(* get the Interpreter ready too *)

edit;
exitWorld;		(* if necessary tell arm servos bye-bye *)
writeln(ttyoutput);
writeln(ttyoutput,'Bye');
end.